home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr45 / pixelv10.zip / HELLO.BAS next >
BASIC Source File  |  1995-02-22  |  22KB  |  259 lines
  1. ' *********************************
  2. ' * This Program made with CELBAS *
  3. ' *        By David Inman         *
  4. ' *      Prairie Village, KS      *
  5. ' *********************************
  6. AP% = 1: BP% = 0
  7. SCREEN 9, AP%, BP%
  8. DIM BRUSH(12400)
  9. DO
  10. SCREEN 9 , , 0
  11. CIRCLE (       119          ,              91           ),             72           ,              14 
  12. PAINT (        113          ,              91           ),             14 ,          14 
  13. PAINT (        113          ,              91           ),             14 ,          14 
  14. PAINT (        113          ,              91           ),             14 ,          14 
  15. PAINT (        113          ,              91           ),             14 ,          14 
  16. PAINT (        113          ,              91           ),             14 ,          14 
  17. PAINT (        113          ,              91           ),             14 ,          14 
  18. PAINT (        113          ,              91           ),             14 ,          14 
  19. CIRCLE (       88           ,              71           ),             1            ,              0 
  20. CIRCLE (       87           ,              70           ),             10           ,              0 
  21. CIRCLE (       87           ,              68           ),             1            ,              0 
  22. PAINT (        88           ,              70           ),             0 ,           0 
  23. PAINT (        88           ,              70           ),             0 ,           0 
  24. PAINT (        88           ,              70           ),             0 ,           0 
  25. PAINT (        88           ,              70           ),             0 ,           0 
  26. PAINT (        88           ,              70           ),             0 ,           0 
  27. PAINT (        85           ,              72           ),             0 ,           0 
  28. PAINT (        85           ,              72           ),             0 ,           0 
  29. PAINT (        85           ,              72           ),             0 ,           0 
  30. PAINT (        85           ,              72           ),             0 ,           0 
  31. PAINT (        85           ,              72           ),             0 ,           0 
  32. PAINT (        88           ,              69           ),             0 ,           0 
  33. PAINT (        88           ,              69           ),             0 ,           0 
  34. PAINT (        88           ,              70           ),             0 ,           0 
  35. PAINT (        88           ,              70           ),             0 ,           0 
  36. PAINT (        88           ,              70           ),             0 ,           0 
  37. PAINT (        88           ,              70           ),             0 ,           0 
  38. PAINT (        88           ,              72           ),             0 ,           0 
  39. PAINT (        88           ,              72           ),             0 ,           0 
  40. PAINT (        88           ,              72           ),             0 ,           0 
  41. PAINT (        88           ,              72           ),             0 ,           0 
  42. PAINT (        88           ,              68           ),             0 ,           0 
  43. PAINT (        88           ,              68           ),             0 ,           0 
  44. PAINT (        87           ,              69           ),             0 ,           0 
  45. PAINT (        87           ,              70           ),             0 ,           0 
  46. PAINT (        87           ,              70           ),             0 ,           0 
  47. PAINT (        87           ,              71           ),             0 ,           0 
  48. PAINT (        87           ,              72           ),             0 ,           0 
  49. PAINT (        87           ,              72           ),             0 ,           0 
  50. PAINT (        87           ,              72           ),             0 ,           0 
  51. PAINT (        87           ,              72           ),             0 ,           0 
  52. PAINT (        87           ,              72           ),             0 ,           0 
  53. PAINT (        87           ,              72           ),             0 ,           0 
  54. PAINT (        87           ,              72           ),             0 ,           0 
  55. PAINT (        87           ,              72           ),             0 ,           0 
  56. PAINT (        87           ,              72           ),             0 ,           0 
  57. PAINT (        87           ,              72           ),             0 ,           0 
  58. PAINT (        87           ,              71           ),             0 ,           0 
  59. PAINT (        87           ,              71           ),             0 ,           0 
  60. PAINT (        87           ,              71           ),             0 ,           0 
  61. PAINT (        87           ,              69           ),             0 ,           0 
  62. PAINT (        87           ,              68           ),             0 ,           0 
  63. PAINT (        87           ,              67           ),             0 ,           0 
  64. PAINT (        87           ,              67           ),             0 ,           0 
  65. PAINT (        87           ,              67           ),             0 ,           0 
  66. PAINT (        87           ,              67           ),             0 ,           0 
  67. PAINT (        87           ,              67           ),             0 ,           0 
  68. PAINT (        87           ,              68           ),             0 ,           0 
  69. PAINT (        87           ,              68           ),             0 ,           0 
  70. PAINT (        87           ,              71           ),             0 ,           0 
  71. PAINT (        87           ,              72           ),             0 ,           0 
  72. PAINT (        87           ,              72           ),             0 ,           0 
  73. PAINT (        87           ,              72           ),             0 ,           0 
  74. PAINT (        87           ,              72           ),             0 ,           0 
  75. PAINT (        87           ,              72           ),             0 ,           0 
  76. PAINT (        87           ,              72           ),             0 ,           0 
  77. PAINT (        87           ,              72           ),             0 ,           0 
  78. PAINT (        88           ,              72           ),             0 ,           0 
  79. PAINT (        88           ,              72           ),             0 ,           0 
  80. PAINT (        89           ,              71           ),             0 ,           0 
  81. PAINT (        89           ,              69           ),             0 ,           0 
  82. PAINT (        90           ,              69           ),             0 ,           0 
  83. PAINT (        90           ,              69           ),             0 ,           0 
  84. PAINT (        90           ,              69           ),             0 ,           0 
  85. PAINT (        90           ,              69           ),             0 ,           0 
  86. PAINT (        90           ,              69           ),             0 ,           0 
  87. PAINT (        90           ,              69           ),             0 ,           0 
  88. PAINT (        90           ,              70           ),             0 ,           0 
  89. PAINT (        89           ,              72           ),             0 ,           0 
  90. PAINT (        89           ,              72           ),             0 ,           0 
  91. PAINT (        89           ,              72           ),             0 ,           0 
  92. PAINT (        89           ,              72           ),             0 ,           0 
  93. PAINT (        89           ,              72           ),             0 ,           0 
  94. PAINT (        89           ,              72           ),             0 ,           0 
  95. PAINT (        89           ,              72           ),             0 ,           0 
  96. PAINT (        89           ,              70           ),             0 ,           0 
  97. PAINT (        89           ,              69           ),             0 ,           0 
  98. PAINT (        89           ,              69           ),             0 ,           0 
  99. PAINT (        89           ,              69           ),             0 ,           0 
  100. PAINT (        89           ,              69           ),             0 ,           0 
  101. PAINT (        89           ,              69           ),             0 ,           0 
  102. PAINT (        89           ,              69           ),             0 ,           0 
  103. PAINT (        87           ,              71           ),             0 ,           0 
  104. PAINT (        87           ,              71           ),             0 ,           0 
  105. PAINT (        87           ,              71           ),             0 ,           0 
  106. PAINT (        87           ,              71           ),             0 ,           0 
  107. PAINT (        87           ,              71           ),             0 ,           0 
  108. PAINT (        87           ,              71           ),             0 ,           0 
  109. PAINT (        87           ,              71           ),             0 ,           0 
  110. PAINT (        88           ,              70           ),             0 ,           0 
  111. PAINT (        89           ,              69           ),             0 ,           0 
  112. PAINT (        89           ,              69           ),             0 ,           0 
  113. PAINT (        89           ,              69           ),             0 ,           0 
  114. PAINT (        89           ,              69           ),             0 ,           0 
  115. PAINT (        89           ,              69           ),             0 ,           0 
  116. PAINT (        89           ,              69           ),             0 ,           0 
  117. PAINT (        89           ,              69           ),             0 ,           0 
  118. PAINT (        89           ,              70           ),             0 ,           0 
  119. PAINT (        89           ,              70           ),             0 ,           0 
  120. PAINT (        89           ,              70           ),             0 ,           0 
  121. PAINT (        89           ,              70           ),             0 ,           0 
  122. PAINT (        89           ,              70           ),             0 ,           0 
  123. PAINT (        89           ,              70           ),             0 ,           0 
  124. PAINT (        89           ,              70           ),             0 ,           0 
  125. PAINT (        89           ,              70           ),             0 ,           0 
  126. PAINT (        87           ,              72           ),             0 ,           0 
  127. PAINT (        87           ,              72           ),             0 ,           0 
  128. PAINT (        87           ,              72           ),             0 ,           0 
  129. PAINT (        87           ,              72           ),             0 ,           0 
  130. PAINT (        87           ,              72           ),             0 ,           0 
  131. PAINT (        87           ,              72           ),             0 ,           0 
  132. PAINT (        88           ,              72           ),             0 ,           0 
  133. PAINT (        89           ,              70           ),             0 ,           0 
  134. PAINT (        90           ,              69           ),             0 ,           0 
  135. PAINT (        91           ,              69           ),             0 ,           0 
  136. PAINT (        91           ,              69           ),             0 ,           0 
  137. PAINT (        91           ,              69           ),             0 ,           0 
  138. PAINT (        91           ,              69           ),             0 ,           0 
  139. PAINT (        89           ,              70           ),             0 ,           0 
  140. PAINT (        87           ,              70           ),             0 ,           0 
  141. PAINT (        86           ,              72           ),             0 ,           0 
  142. PAINT (        86           ,              72           ),             0 ,           0 
  143. PAINT (        86           ,              72           ),             0 ,           0 
  144. PAINT (        86           ,              72           ),             0 ,           0 
  145. PAINT (        86           ,              72           ),             0 ,           0 
  146. PAINT (        86           ,              71           ),             0 ,           0 
  147. PAINT (        88           ,              70           ),             0 ,           0 
  148. PAINT (        89           ,              69           ),             0 ,           0 
  149. PAINT (        90           ,              69           ),             0 ,           0 
  150. PAINT (        90           ,              69           ),             0 ,           0 
  151. PAINT (        90           ,              69           ),             0 ,           0 
  152. PAINT (        90           ,              69           ),             0 ,           0 
  153. PAINT (        90           ,              69           ),             0 ,           0 
  154. PAINT (        90           ,              69           ),             0 ,           0 
  155. PAINT (        90           ,              69           ),             0 ,           0 
  156. PAINT (        89           ,              69           ),             0 ,           0 
  157. PAINT (        89           ,              69           ),             0 ,           0 
  158. PAINT (        89           ,              69           ),             0 ,           0 
  159. PAINT (        89           ,              69           ),             0 ,           0 
  160. PAINT (        89           ,              69           ),             0 ,           0 
  161. PAINT (        89           ,              69           ),             0 ,           0 
  162. PAINT (        87           ,              70           ),             0 ,           0 
  163. PAINT (        84           ,              72           ),             0 ,           0 
  164. PAINT (        83           ,              72           ),             0 ,           0 
  165. PAINT (        83           ,              72           ),             0 ,           0 
  166. PAINT (        83           ,              72           ),             0 ,           0 
  167. PAINT (        83           ,              72           ),             0 ,           0 
  168. PAINT (        86           ,              71           ),             0 ,           0 
  169. PAINT (        87           ,              70           ),             0 ,           0 
  170. PAINT (        88           ,              69           ),             0 ,           0 
  171. PAINT (        90           ,              69           ),             0 ,           0 
  172. PAINT (        90           ,              69           ),             0 ,           0 
  173. PAINT (        90           ,              69           ),             0 ,           0 
  174. PAINT (        90           ,              69           ),             0 ,           0 
  175. PAINT (        90           ,              69           ),             0 ,           0 
  176. PAINT (        90           ,              69           ),             0 ,           0 
  177. PAINT (        89           ,              72           ),             0 ,           0 
  178. PAINT (        89           ,              73           ),             0 ,           0 
  179. PAINT (        89           ,              73           ),             0 ,           0 
  180. PAINT (        89           ,              73           ),             0 ,           0 
  181. PAINT (        89           ,              73           ),             0 ,           0 
  182. PAINT (        89           ,              73           ),             0 ,           0 
  183. PAINT (        89           ,              71           ),             0 ,           0 
  184. PAINT (        93           ,              90           ),             0 ,           0 
  185. PAINT (        93           ,              91           ),             0 ,           0 
  186. PAINT (        93           ,              94           ),             0 ,           0 
  187. PAINT (        93           ,              99           ),             0 ,           0 
  188. PAINT (        93           ,              102          ),             0 ,           0 
  189. PAINT (        93           ,              106          ),             0 ,           0 
  190. PAINT (        93           ,              107          ),             0 ,           0 
  191. PAINT (        93           ,              107          ),             0 ,           0 
  192. PAINT (        93           ,              107          ),             0 ,           0 
  193. PAINT (        93           ,              107          ),             0 ,           0 
  194. PAINT (        93           ,              107          ),             0 ,           0 
  195. PAINT (        93           ,              107          ),             0 ,           0 
  196. PAINT (        93           ,              107          ),             0 ,           0 
  197. PAINT (        93           ,              107          ),             0 ,           0 
  198. PAINT (        90           ,              74           ),             0 ,           0 
  199. PAINT (        89           ,              77           ),             0 ,           0 
  200. PAINT (        88           ,              78           ),             0 ,           0 
  201. PAINT (        88           ,              79           ),             0 ,           0 
  202. PAINT (        88           ,              79           ),             0 ,           0 
  203. PAINT (        88           ,              79           ),             0 ,           0 
  204. PAINT (        88           ,              74           ),             0 ,           0 
  205. PAINT (        88           ,              72           ),             0 ,           0 
  206. PAINT (        88           ,              70           ),             0 ,           0 
  207. PAINT (        88           ,              69           ),             0 ,           0 
  208. PAINT (        88           ,              66           ),             0 ,           0 
  209. PAINT (        88           ,              66           ),             0 ,           0 
  210. PAINT (        88           ,              66           ),             0 ,           0 
  211. PAINT (        88           ,              69           ),             0 ,           0 
  212. PAINT (        88           ,              70           ),             0 ,           0 
  213. PAINT (        88           ,              73           ),             0 ,           0 
  214. PAINT (        88           ,              74           ),             0 ,           0 
  215. PAINT (        87           ,              74           ),             0 ,           0 
  216. PAINT (        87           ,              74           ),             0 ,           0 
  217. PAINT (        87           ,              74           ),             0 ,           0 
  218. PAINT (        63           ,              97           ),             0 ,           0 
  219. PAINT (        67           ,              97           ),             0 ,           0 
  220. PAINT (        79           ,              97           ),             0 ,           0 
  221. PAINT (        95           ,              97           ),             0 ,           0 
  222. PAINT (        114          ,              96           ),             0 ,           0 
  223. PAINT (        125          ,              96           ),             0 ,           0 
  224. PAINT (        135          ,              96           ),             0 ,           0 
  225. PAINT (        123          ,              74           ),             0 ,           0 
  226. PAINT (        124          ,              76           ),             0 ,           0 
  227. PAINT (        130          ,              79           ),             0 ,           0 
  228. PAINT (        188          ,              97           ),             0 ,           0 
  229. PAINT (        224          ,              108          ),             0 ,           0 
  230. PAINT (        258          ,              112          ),             0 ,           0 
  231. PAINT (        282          ,              116          ),             0 ,           0 
  232. PAINT (        292          ,              118          ),             0 ,           0 
  233. PAINT (        295          ,              118          ),             0 ,           0 
  234. PAINT (        299          ,              118          ),             0 ,           0 
  235. PAINT (        301          ,              119          ),             0 ,           0 
  236. PAINT (        301          ,              119          ),             0 ,           0 
  237. PAINT (        300          ,              117          ),             0 ,           0 
  238. PAINT (        290          ,              114          ),             0 ,           0 
  239. PAINT (        264          ,              107          ),             0 ,           0 
  240. PAINT (        234          ,              95           ),             0 ,           0 
  241. PAINT (        136          ,              73           ),             0 ,           0 
  242. PAINT (        136          ,              73           ),             0 ,           0 
  243. PAINT (        136          ,              73           ),             0 ,           0 
  244. PAINT (        135          ,              73           ),             0 ,           0 
  245. PAINT (        128          ,              71           ),             0 ,           0 
  246. PAINT (        110          ,              66           ),             0 ,           0 
  247. PAINT (        107          ,              65           ),             0 ,           0 
  248. PAINT (        105          ,              65           ),             0 ,           0 
  249. PAINT (        102          ,              65           ),             0 ,           0 
  250. PAINT (        90           ,              65           ),             0 ,           0 
  251. PAINT (        80           ,              65           ),             0 ,           0 
  252. PAINT (        72           ,              65           ),             0 ,           0 
  253. PAINT (        64           ,              65           ),             0 ,           0 
  254. PAINT (        64           ,              65           ),             0 ,           0 
  255. PAINT (        64           ,              65           ),             0 ,           0 
  256. PAINT (        64           ,              65           ),             0 ,           0 
  257. PAINT (        64           ,              63           ),             0 ,           0 
  258. PAINT (        62           ,              61           ),             0 ,           0 
  259.